Ham Radio 2000/Ham Radio 2000.iso/ham2000/misc/kc1qfnts/radiogrm.frm

Text File | 1995-03-24 | 61KB | 2,172 lines

VERSION 2.00
Begin Form radiogrm
   BackColor       =   &H0080FFFF&
   ClientHeight    =   6900
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   9495
   FontTransparent =   0   'False
   Height          =   7305
   KeyPreview      =   -1  'True
   Left            =   -15
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6900
   ScaleWidth      =   9495
   Top             =   0
   Width           =   9615
   Begin SSCommand Command3D4
      Caption         =   "Main Menu"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   855
      Left            =   7110
      TabIndex        =   53
      Top             =   1185
      Width           =   1980
   End
   Begin SSCommand Command3D3
      Caption         =   "Listen To Voicegram"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   825
      Left            =   7110
      TabIndex        =   52
      Top             =   225
      Width           =   2025
   End
   Begin TextBox Text38
      BorderStyle     =   0  'None
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1410
      Left            =   2340
      MultiLine       =   -1  'True
      TabIndex        =   51
      Text            =   "Text38"
      Top             =   3675
      Width           =   5535
   End
   Begin PictureBox Picture2
      BackColor       =   &H0080FFFF&
      BorderStyle     =   0  'None
      Height          =   540
      Left            =   450
      Picture         =   RADIOGRM.FRX:0000
      ScaleHeight     =   540
      ScaleWidth      =   585
      TabIndex        =   50
      Top             =   2955
      Width           =   585
   End
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   480
      Left            =   8820
      Picture         =   RADIOGRM.FRX:0302
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   49
      Top             =   5850
      Width           =   480
   End
   Begin Timer Timer2
      Interval        =   1000
      Left            =   7800
      Top             =   5895
   End
   Begin Timer Timer1
      Left            =   7125
      Top             =   5880
   End
   Begin TextBox Text37
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   4530
      TabIndex        =   38
      Text            =   "Text37"
      Top             =   5235
      Width           =   4560
   End
   Begin TextBox Text36
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   1425
      TabIndex        =   37
      Text            =   "Text36"
      Top             =   5220
      Width           =   1200
   End
   Begin TextBox Text35
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   105
      TabIndex        =   36
      Text            =   "Text35"
      Top             =   5220
      Width           =   1200
   End
   Begin TextBox Text34
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   7860
      TabIndex        =   35
      Text            =   "Text34"
      Top             =   4680
      Width           =   1200
   End
   Begin TextBox Text33
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   6600
      TabIndex        =   34
      Text            =   "Text33"
      Top             =   4680
      Width           =   1200
   End
   Begin TextBox Text32
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   5340
      TabIndex        =   33
      Text            =   "Text32"
      Top             =   4680
      Width           =   1200
   End
   Begin TextBox Text31
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   4035
      TabIndex        =   32
      Text            =   "Text31"
      Top             =   4680
      Width           =   1200
   End
   Begin TextBox Text30
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   2730
      TabIndex        =   31
      Text            =   "Text30"
      Top             =   4680
      Width           =   1200
   End
   Begin TextBox Text29
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   1425
      TabIndex        =   30
      Text            =   "Text29"
      Top             =   4680
      Width           =   1200
   End
   Begin TextBox Text28
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   105
      TabIndex        =   29
      Text            =   "Text28"
      Top             =   4680
      Width           =   1200
   End
   Begin TextBox Text27
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   7875
      TabIndex        =   28
      Text            =   "Text27"
      Top             =   4145
      Width           =   1200
   End
   Begin TextBox Text26
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   6600
      TabIndex        =   27
      Text            =   "Text26"
      Top             =   4145
      Width           =   1200
   End
   Begin TextBox Text25
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   5340
      TabIndex        =   26
      Text            =   "Text25"
      Top             =   4145
      Width           =   1200
   End
   Begin TextBox Text24
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   4035
      TabIndex        =   25
      Text            =   "Text24"
      Top             =   4145
      Width           =   1200
   End
   Begin TextBox Text23
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   2745
      TabIndex        =   24
      Text            =   "Text23"
      Top             =   4140
      Width           =   1200
   End
   Begin TextBox Text22
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   1425
      TabIndex        =   23
      Text            =   "Text22"
      Top             =   4145
      Width           =   1200
   End
   Begin TextBox Text21
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   100
      TabIndex        =   22
      Text            =   "Text21"
      Top             =   4145
      Width           =   1200
   End
   Begin TextBox Text20
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   7875
      TabIndex        =   21
      Text            =   "Text20"
      Top             =   3600
      Width           =   1200
   End
   Begin TextBox Text19
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   6600
      TabIndex        =   20
      Text            =   "Text19"
      Top             =   3600
      Width           =   1200
   End
   Begin TextBox Text18
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   5340
      TabIndex        =   19
      Text            =   "Text18"
      Top             =   3600
      Width           =   1200
   End
   Begin TextBox Text17
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   4035
      TabIndex        =   18
      Text            =   "Text17"
      Top             =   3600
      Width           =   1200
   End
   Begin TextBox Text16
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   2730
      TabIndex        =   17
      Text            =   "Text16"
      Top             =   3600
      Width           =   1200
   End
   Begin TextBox Text15
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   1425
      TabIndex        =   16
      Text            =   "Text15"
      Top             =   3600
      Width           =   1200
   End
   Begin TextBox Text14
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   100
      TabIndex        =   15
      Text            =   "Text14"
      Top             =   3600
      Width           =   1200
   End
   Begin TextBox Text13
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   7875
      TabIndex        =   14
      Text            =   "Text13"
      Top             =   3045
      Width           =   1200
   End
   Begin TextBox Text12
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   6600
      TabIndex        =   13
      Text            =   "Text12"
      Top             =   3045
      Width           =   1200
   End
   Begin TextBox Text11
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   5340
      TabIndex        =   12
      Text            =   "Text11"
      Top             =   3030
      Width           =   1200
   End
   Begin TextBox Text10
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   4035
      TabIndex        =   11
      Text            =   "Text10"
      Top             =   3030
      Width           =   1200
   End
   Begin TextBox Text9
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   2730
      TabIndex        =   10
      Text            =   "Text9"
      Top             =   3015
      Width           =   1200
   End
   Begin TextBox Text8
      ForeColor       =   &H0000FFFF&
      Height          =   500
      Left            =   1440
      TabIndex        =   9
      Text            =   "Text8"
      Top             =   3030
      Width           =   1200
   End
   Begin TextBox Text7
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   6510
      TabIndex        =   8
      Text            =   "Text7"
      Top             =   2130
      Width           =   2580
   End
   Begin TextBox Text6
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   2760
      TabIndex        =   7
      Text            =   "Text6"
      Top             =   2145
      Width           =   3630
   End
   Begin TextBox Text5
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   1455
      TabIndex        =   6
      Text            =   "Text5"
      Top             =   2145
      Width           =   1200
   End
   Begin TextBox Text4
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   6225
      TabIndex        =   5
      Text            =   "Text4"
      Top             =   1470
      Width           =   495
   End
   Begin TextBox Text3
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   1440
      TabIndex        =   4
      Text            =   "Text3"
      Top             =   1485
      Width           =   3915
   End
   Begin TextBox Text2
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   1455
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   870
      Width           =   5295
   End
   Begin TextBox Text1
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "System"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H0000FFFF&
      Height          =   480
      Left            =   1455
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   240
      Width           =   5310
   End
   Begin SSCommand Command3D2
      Caption         =   "Transmit Radiogram"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   840
      Left            =   7125
      Picture         =   RADIOGRM.FRX:0604
      TabIndex        =   1
      Top             =   225
      Width           =   2010
   End
   Begin SSCommand Command3D1
      Caption         =   "Abort Radiogram"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   825
      Left            =   7125
      Picture         =   RADIOGRM.FRX:0906
      TabIndex        =   0
      Top             =   1185
      Width           =   1980
   End
   Begin Line Line2
      BorderColor     =   &H00000000&
      BorderWidth     =   5
      X1              =   30
      X2              =   9510
      Y1              =   6375
      Y2              =   6375
   End
   Begin Line Line1
      BorderColor     =   &H00000000&
      BorderWidth     =   5
      X1              =   0
      X2              =   9495
      Y1              =   5805
      Y2              =   5790
   End
   Begin Label Label10
      BackColor       =   &H0080FFFF&
      Caption         =   "Signature (Names Only)"
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   3225
      TabIndex        =   48
      Top             =   5235
      Width           =   1215
   End
   Begin Label Label9
      BackColor       =   &H0080FFFF&
      Caption         =   "Telephone #"
      ForeColor       =   &H00000000&
      Height          =   285
      Left            =   7365
      TabIndex        =   47
      Top             =   2715
      Width           =   1215
   End
   Begin Label Label8
      BackColor       =   &H0080FFFF&
      Caption         =   "Country"
      ForeColor       =   &H00000000&
      Height          =   225
      Left            =   4065
      TabIndex        =   46
      Top             =   2700
      Width           =   1215
   End
   Begin Label Label7
      BackColor       =   &H0080FFFF&
      Caption         =   "State"
      ForeColor       =   &H00000000&
      Height          =   330
      Left            =   5445
      TabIndex        =   45
      Top             =   1605
      Width           =   660
   End
   Begin Label Label6
      BackColor       =   &H0080FFFF&
      Caption         =   "Zip Code"
      ForeColor       =   &H00000000&
      Height          =   270
      Left            =   330
      TabIndex        =   44
      Top             =   2280
      Width           =   1095
   End
   Begin Label Label5
      BackColor       =   &H0080FFFF&
      Caption         =   "City"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   525
      TabIndex        =   43
      Top             =   1545
      Width           =   780
   End
   Begin Label Label4
      BackColor       =   &H0080FFFF&
      Caption         =   "Street Address"
      ForeColor       =   &H00000000&
      Height          =   270
      Left            =   75
      TabIndex        =   42
      Top             =   930
      Width           =   1395
   End
   Begin Label Label3
      BackColor       =   &H0080FFFF&
      Caption         =   "Name"
      ForeColor       =   &H00000000&
      Height          =   360
      Left            =   435
      TabIndex        =   41
      Top             =   345
      Width           =   1215
   End
   Begin Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "Helpful Hints"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   3855
      TabIndex        =   40
      Top             =   6420
      Width           =   2580
   End
   Begin Label Label1
      BackColor       =   &H00FFFFFF&
      Caption         =   "Label1"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   495
      Left            =   30
      TabIndex        =   39
      Top             =   5850
      Width           =   9495
   End
End

Sub cleartext ()
text1.Text = ""
text2.Text = ""
text3.Text = ""
text4.Text = ""
text5.Text = ""
text6.Text = ""
text7.Text = ""
text8.Text = ""
text9.Text = ""
text10.Text = ""
text11.Text = ""
text12.Text = ""
text13.Text = ""
text14.Text = ""
text15.Text = ""
text16.Text = ""
text17.Text = ""
text18.Text = ""
text19.Text = ""
text20.Text = ""
text21.Text = ""
text22.Text = ""
text23.Text = ""
text24.Text = ""
text25.Text = ""
text26.Text = ""
text27.Text = ""
text28.Text = ""
text29.Text = ""
text30.Text = ""
text31.Text = ""
text32.Text = ""
text33.Text = ""
text34.Text = ""
text35.Text = ""
text36.Text = ""
text37.Text = ""
End Sub

Sub Command3D1_Click ()
x = MsgBox("Are you SURE you want to abort the radiogram without saving it?", 52, "Caution...")
If x = 6 Then ky1tnts.Show
 If x = 6 Then radiogrm.Hide

End Sub

Sub Command3D2_Click ()
    Select Case voice
        Case 1 'This is a Voicegram, not a radiogram
            If text1.Text = "" Then Beep: MsgBox ("You need to fill in the name and address information before we can transmit your voicegram...")
               Case 2 'This is a radiogram, not a voicegram

          label1.Caption = "          Your radiogram has been sent.  Thank you!"

'Now determine "check" or number of words in text
If text9.Text = "" Then check = 1
If text10.Text = "" And text9 <> "" Then check = 2
If text11.Text = "" And text10.Text <> "" Then check = 3
If text12.Text = "" And text11.Text <> "" Then check = 4
If text13.Text = "" And text12Text <> "" Then check = 5
If text14.Text = "" And text13.Text <> "" Then check = 6
If text15.Text = "" And text14.Text <> "" Then check = 7
If text16.Text = "" And text15.Text <> "" Then check = 8
If text17.Text = "" And text16.Text <> "" Then check = 9
If text18.Text = "" And text17.Text <> "" Then check = 10
If text19.Text = "" And text18.Text <> "" Then check = 11
If text20.Text = "" And text19.Text <> "" Then check = 12
If text21.Text = "" And text20.Text <> "" Then check = 13
If text22.Text = "" And text21.Text <> "" Then check = 14
If text23.Text = "" And text22.Text <> "" Then check = 15
If text24.Text = "" And text23.Text <> "" Then check = 16
If text25.Text = "" And text24.Text <> "" Then check = 17
If text26.Text = "" And text25.Text <> "" Then check = 18
If text27.Text = "" And text26.Text <> "" Then check = 19
If text28.Text = "" And text27.Text <> "" Then check = 20
If text29.Text = "" And text28.Text <> "" Then check = 21
If text30.Text = "" And text29.Text <> "" Then check = 22
If text31.Text = "" And text30.Text <> "" Then check = 23
If text32.Text = "" And text31.Text <> "" Then check = 24
If text33.Text = "" And text32.Text <> "" Then check = 25
If text34.Text = "" And text33.Text <> "" Then check = 26
If text35.Text = "" And text34.Text <> "" Then check = 27
If text36.Text = "" And text35.Text <> "" Then check = 28
If text37.Text <> "" And text36.Text <> "" Then check = 29
text36.Text = Str$(check)

messagenumber = initialmessagenumber + 1
initialmessagenumber = messagenumber  'Increment message number sequence
number$ = Str$(messagenumber)'Make a text representation of the longinteger "messagenumber"

Open directory$ & "\" & messagenumber For Output As #1

cr$ = Chr$(10) & Chr$(13)

' Created "sig$" and "part2$" mostly because "radiogram$" is too long!
sig$ = " " & text36.Text & cr$ & "BT" & cr$ & UCase$(text37.Text) & cr$
checkstring$ = Str$(check)

'Now put it all together as an ASCII file and write to disk

preamble$ = "NR" & " " & number$ & " " & precedence$ & " " & UCase$(callsign$) & " " & checkstring$ & " " & UCase$(cityoforigination$) & " " & UCase$(todaysdate$) & cr$
part2$ = UCase$(text27.Text) & cr$ & UCase$(text28.Text) & " " & UCase$(text29.Text) & " " & UCase$(text30.Text) & " " & UCase$(text31.Text) & " " & UCase$(text32.Text) & "    " & UCase$(text33.Text) & " " & UCase$(text34.Text) & " " & UCase$(text35.Text) & sig$
radiogram$ = preamble$ & UCase$(text1.Text) & cr$ & UCase$(text2.Text) & cr$ & UCase$(text3.Text) & "  " & UCase$(text4.Text) & " " & UCase$(text5.Text) & " " & UCase$(text6.Text) & " " & cr$ & UCase$(text7.Text) & cr$ & "BT" & cr$ & UCase$(text8.Text) & " " & UCase$(text9.Text) & " " & UCase$(text10.Text) & " " & UCase$(text11.Text) & " " & UCase$(text12.Text) & "     " & UCase$(text13.Text) & " " & UCase$(text14.Text) & " " & UCase$(text15.Text) & " " & UCase$(text16.Text) & " " & UCase$(text17.Text) & cr$ & UCase$(text18.Text) & " " & UCase$(text19.Text) & " " & UCase$(text20.Text) & " " & UCase$(text21.Text) & " " & UCase$(text22.Text) & "     " & UCase$(text23.Text) & " " & UCase$(text24.Text) & " " & UCase$(text25.Text) & " " & UCase$(text26.Text) & " " & part2$


Print #1, radiogram$
Close 1

makeblue
MsgBox ("Beta Testers -- please note that the message(s) you've 'sent' should now exist in the subdirectory that you chose with the general setup option.")


timer1.Enabled = 1 'Begin timer to go back to opening/main form
timer1.Interval = 6000

     End Select

End Sub

Sub Command3D3_Click ()

  playback$ = (directory$ & "\vplay.exe " & directory$ & "\" & "voc" & messagenumber)
  z = Shell(playback$)
k = MsgBox("After listening to your voicegram, do  you wish to KILL it?  Choosing 'yes' will delete it; choosing 'no' will save it.", 4, "Delete Voicegram?")
 If k = 6 Then
      filename$ = directory$ & "\" & messagenumber&
      Kill filename$
      filename$ = (directory$ & "\" & "voc" & LTrim$(Str$(messagenumber&)) & ".voc")
       Kill filename$: radiogrm.Hide : ky1tnts.Show
   End If

If k = 7 Then
    radiogrm.Hide : ky1tnts.Show
    End If



End Sub

Sub Command3D4_Click ()
radiogrm.Hide
ky1tnts.Show

End Sub

Sub Form_Activate ()
text1.SetFocus
 cleartext
 makeblue
  text38.Visible = False
    label1.Visible = True
    label2.Visible = True
     label10.Visible = True
     text37.Visible = True
     command3d1.Visible = True: command3d2.Visible = True
timer1.Enabled = 0
timer2.Enabled = 1
timer2.Interval = 1000

Select Case voice 'Check to see if this is a voicegram or a telegram
Case 2 'telegram
    command3d3.Visible = False: command3d4.Visible = False: text8.Visible = True: text9.Visible = True: text10.Visible = True: text11.Visible = True: text12.Visible = True: text13.Visible = True: text14.Visible = True: text15.Visible = True: text16.Visible = True: text17.Visible = True: text18.Visible = True: text19.Visible = True: text20.Visible = True: text21.Visible = True: text22.Visible = True: text23.Visible = True: text24.Visible = True: text25.Visible = True: text26.Visible = True: text27.Visible = True: text28.Visible = True: text29.Visible = True: text30.Visible = True: text31.Visible = True: text32.Visible = True: text33.Visible = True: text34.Visible = True: text35.Visible = True: text36.Visible = True
    Case 1 'voicegram
    command3d2.Visible = False
    command3d1.Visible = False
    command3d4.Visible = True
    command3d3.Visible = False

    text8.Visible = False: text9.Visible = False: text10.Visible = False: text11.Visible = False: text12.Visible = False: text13.Visible = False: text14.Visible = False: text15.Visible = False: text16.Visible = False: text17.Visible = False: text18.Visible = False: text19.Visible = False: text20.Visible = False: text21.Visible = False: text22.Visible = False: text23.Visible = False: text24.Visible = False: text25.Visible = False: text26.Visible = False: text27.Visible = False: text28.Visible = False: text29.Visible = valse: text30.Visible = False: text31.Visible = False: text32.Visible = False: text33.Visible = False: text34.Visible = False: text35.Visible = False: text36.Visible = False
  label1.Caption = "Begin with the complete name/address of the person you're sending this voicegram to."


  End Select
End Sub

 Sub makeblue ()
    Y& = RGB(0, 0, 255)
text1.BackColor = Y&
text2.BackColor = Y&
text3.BackColor = Y&
text4.BackColor = Y&
text5.BackColor = Y&
text6.BackColor = Y&
text7.BackColor = Y&
text8.BackColor = Y&
text9.BackColor = Y&
text10.BackColor = Y&
text11.BackColor = Y&
text12.BackColor = Y&
text13.BackColor = Y&
text14.BackColor = Y&
text15.BackColor = Y&
text16.BackColor = Y&
text17.BackColor = Y&
text18.BackColor = Y&
text19.BackColor = Y&
text20.BackColor = Y&
text21.BackColor = Y&
text22.BackColor = Y&
text23.BackColor = Y&
text24.BackColor = Y&
text25.BackColor = Y&
text26.BackColor = Y&
text27.BackColor = Y&
text28.BackColor = Y&
text29.BackColor = Y&
text30.BackColor = Y&
text31BackColor = Y&
text32.BackColor = Y&
text33.BackColor = Y&
text34.BackColor = Y&
text35.BackColor = Y&
text36.BackColor = Y&
text37.BackColor = Y&

End Sub

Sub nopunct ()  'for situations where no punctuation is allowed

    Select Case keyascii
    Case 0 To 47
        keyascii = 0
    Case 58 To 64
        keyascii = 0
    Case 91 To 96
        keyascii = 0
    Case Is > 122
        keyascii = 0
    End Select

End Sub

Sub nopunct1 ()
'For keydown stuff to ensure no punctuation, but allow arrows
Select Case keycode
    Case 8 To 13, 17 To 27, 33 To 36, 38, 40 To 57, 96 To 99, 101, Is > 103
        keycode = 16 'do nothing, basically...
        Case Shift = 6 And keycode = 110
            keycode = 16 'If user tries CTL-ALT-DEL, do nothing...

               End Select

        End Sub

Sub Text1_GotFocus ()
    x& = RGB(255, 0, 0)
 text1.BackColor = x&

 label1.Caption = "Begin by typing name of addressee in red highlighted area."

End Sub

Sub Text1_KeyDown (keycode As Integer, Shift As Integer)
'For keydown stuff to ensure no punctuation, but allow arrows
Select Case keycode
    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  text1.Text = ""

             End Select
If keycode = 13 Then
    keycode = 9
    label1.Caption = "Good!  Now enter address."
       text2.SetFocus

       End If


End Sub

Sub Text1_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If



End Sub

Sub Text10_GotFocus ()
    x& = RGB(255, 0, 0)
 text10.BackColor = x&
    Y& = RGB(0, 0, 255)
    text9.BackColor = Y&

End Sub

Sub Text10_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")

text10.Text = ""
Case 32
text11.SetFocus

             End Select
If keycode = 13 Then
    keycode = 9

       text11.SetFocus
           End If
End Sub

Sub Text10_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text11_GotFocus ()
    x& = RGB(255, 0, 0)
 text11.BackColor = x&
    Y& = RGB(0, 0, 255)
    text10.BackColor = Y&

End Sub

Sub Text11_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")

text11.Text = ""
Case 32
text12.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
  text12.SetFocus
  End If

End Sub

Sub Text11_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text12_GotFocus ()
    x& = RGB(255, 0, 0)
 text12.BackColor = x&
    Y& = RGB(0, 0, 255)
    text11.BackColor = Y&
End Sub

Sub Text12_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
    text12.Text = ""
Case 32
             text13.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text13.SetFocus
  End If

End Sub

Sub Text12_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text13_GotFocus ()
    x& = RGB(255, 0, 0)
 text13.BackColor = x&
    Y& = RGB(0, 0, 255)
    text12.BackColor = Y&

End Sub

Sub Text13_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text13.Text = ""
Case 32
text14.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
    text14.SetFocus
  End If

End Sub

Sub Text13_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text14_GotFocus ()
    x& = RGB(255, 0, 0)
 text14.BackColor = x&
    Y& = RGB(0, 0, 255)
    text13.BackColor = Y&

End Sub

Sub Text14_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text14.Text = ""
Case 32
             text15.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text15.SetFocus
  End If

End Sub

Sub Text14_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text15_GotFocus ()


    x& = RGB(255, 0, 0)
 text15.BackColor = x&
    Y& = RGB(0, 0, 255)
    text14.BackColor = Y&
End Sub

Sub Text15_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  text15.Text = ""
Case 32
             text16.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text16.SetFocus
  End If

End Sub

Sub Text15_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text16_GotFocus ()
    x& = RGB(255, 0, 0)
 text16.BackColor = x&
    Y& = RGB(0, 0, 255)
    text15.BackColor = Y&

End Sub

Sub Text16_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text16.Text = ""
Case 32
text17.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text17.SetFocus
  End If

End Sub

Sub Text16_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text17_GotFocus ()
    x& = RGB(255, 0, 0)
 text17.BackColor = x&
    Y& = RGB(0, 0, 255)
    text16.BackColor = Y&

End Sub

Sub Text17_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
       text17.Text = ""
Case 32
             text18.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text18.SetFocus
  End If

End Sub

Sub Text17_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text18_GotFocus ()
    x& = RGB(255, 0, 0)
 text18.BackColor = x&
    Y& = RGB(0, 0, 255)
    text17.BackColor = Y&

End Sub

Sub Text18_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text18.Text = ""
Case 32
text19.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
    text19.SetFocus
  End If

End Sub

Sub Text18_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text19_GotFocus ()
    x& = RGB(255, 0, 0)
 text19.BackColor = x&
    Y& = RGB(0, 0, 255)
    text18.BackColor = Y&

End Sub

Sub Text19_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text19.Text = ""
Case 32
             text20.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text20.SetFocus
  End If

End Sub

Sub Text19_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text2_GotFocus ()
    x& = RGB(255, 0, 0)
 text2.BackColor = x&
    Y& = RGB(0, 0, 255)
    text1.BackColor = Y&



End Sub

Sub Text2_KeyDown (keycode As Integer, Shift As Integer)
'For keydown stuff to ensure no punctuation, but allow arrows
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")

  text2.Text = ""
             End Select
If keycode = 13 Then
    keycode = 9
    label1.Caption = "Good!  Now enter City"
       text3.SetFocus
  End If
End Sub

Sub Text2_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text20_GotFocus ()
    x& = RGB(255, 0, 0)
 text20.BackColor = x&
    Y& = RGB(0, 0, 255)
    text19.BackColor = Y&

End Sub

Sub Text20_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text20.Text = ""
Case 32
             text21.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text21.SetFocus
  End If

End Sub

Sub Text20_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text21_GotFocus ()
    x& = RGB(255, 0, 0)
 text21.BackColor = x&
    Y& = RGB(0, 0, 255)
    text20.BackColor = Y&

End Sub

Sub Text21_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text21.Text = ""
Case 32
             text22.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text22.SetFocus
  End If

End Sub

Sub Text21_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text22_GotFocus ()
    x& = RGB(255, 0, 0)
 text22.BackColor = x&
    Y& = RGB(0, 0, 255)
    text21.BackColor = Y&

End Sub

Sub Text22_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")

  Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text22.Text = ""
Case 32
 text23.SetFocus
 End Select
If keycode = 13 Then
    keycode = 9
text23.SetFocus
  End If

End Sub

Sub Text22_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text23_GotFocus ()
   x& = RGB(255, 0, 0)
 text23.BackColor = x&
    Y& = RGB(0, 0, 255)
    text22.BackColor = Y&


End Sub

Sub Text23_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
           text23.Text = ""
Case 32
             text24.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text24.SetFocus
  End If

End Sub

Sub Text23_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text24_GotFocus ()
    x& = RGB(255, 0, 0)
 text24.BackColor = x&
    Y& = RGB(0, 0, 255)
    text23.BackColor = Y&

End Sub

Sub Text24_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
   text24.Text = ""
Case 32
             text25.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text25.SetFocus
  End If


End Sub

Sub Text24_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text25_GotFocus ()
    x& = RGB(255, 0, 0)
 text25.BackColor = x&
    Y& = RGB(0, 0, 255)
    text24.BackColor = Y&

End Sub

Sub Text25_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
    text25.Text = ""
Case 32
             text26.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text26.SetFocus
  End If


End Sub

Sub Text25_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text26_GotFocus ()
    x& = RGB(255, 0, 0)
 text26.BackColor = x&
    Y& = RGB(0, 0, 255)
    text25.BackColor = Y&

End Sub

Sub Text26_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
    text26.Text = ""
Case 32
text27.SetFocus
End Select
If keycode = 13 Then
    keycode = 9
text27.SetFocus
  End If


End Sub

Sub Text26_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text27_GotFocus ()
    x& = RGB(255, 0, 0)
 text27.BackColor = x&
    Y& = RGB(0, 0, 255)
    text26.BackColor = Y&

End Sub

Sub Text27_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
   text27.Text = ""
Case 32
             text28.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text28.SetFocus
  End If


End Sub

Sub Text27_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text28_GotFocus ()
    x& = RGB(255, 0, 0)
 text28.BackColor = x&
    Y& = RGB(0, 0, 255)
    text27.BackColor = Y&

End Sub

Sub Text28_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  text28.Text = ""
Case 32
             text29.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text29.SetFocus
  End If


End Sub

Sub Text28_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text29_GotFocus ()
    x& = RGB(255, 0, 0)
 text29.BackColor = x&
    Y& = RGB(0, 0, 255)
    text28.BackColor = Y&

End Sub

Sub Text29_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
    text29.Text = ""
Case 32
             text30.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text30.SetFocus
  End If


End Sub

Sub Text29_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text3_GotFocus ()
    x& = RGB(255, 0, 0)
 text3.BackColor = x&
    Y& = RGB(0, 0, 255)
    text2.BackColor = Y&

End Sub

Sub Text3_KeyDown (keycode As Integer, Shift As Integer)
    Select Case keycode
    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
 text3.Text = ""

             End Select
If keycode = 13 Then
    keycode = 9
    label1.Caption = "Now enter 2-letter State. (If non-USA/Canada, leave blank)."
       text4.SetFocus
         End If
End Sub

Sub Text3_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text30_GotFocus ()
x& = RGB(255, 0, 0)
 text30.BackColor = x&
    Y& = RGB(0, 0, 255)
    text29.BackColor = Y&

End Sub

Sub Text30_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text30.Text = ""
Case 32
             text31.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text31.SetFocus
  End If


End Sub

Sub Text30_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text31_GotFocus ()
    x& = RGB(255, 0, 0)
 text31.BackColor = x&
    Y& = RGB(0, 0, 255)
    text30.BackColor = Y&

End Sub

Sub Text31_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
     text31.Text = ""
Case 32
             text32.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text32.SetFocus
  End If


End Sub

Sub Text31_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text32_GotFocus ()
    x& = RGB(255, 0, 0)
 text32.BackColor = x&
    Y& = RGB(0, 0, 255)
    text31.BackColor = Y&

End Sub

Sub Text32_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
      text32.Text = ""
Case 32
             text33.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text33.SetFocus
  End If


End Sub

Sub Text32_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text33_GotFocus ()
    x& = RGB(255, 0, 0)
 text33.BackColor = x&
    Y& = RGB(0, 0, 255)
    text32.BackColor = Y&

End Sub

Sub Text33_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
text33.Text = ""
Case 32
             text34.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text34.SetFocus
  End If


End Sub

Sub Text33_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text34_GotFocus ()
    x& = RGB(255, 0, 0)
 text34.BackColor = x&
    Y& = RGB(0, 0, 255)
    text33.BackColor = Y&


End Sub

Sub Text34_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
     text34.Text = ""
Case 32
             text35.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text35.SetFocus
  End If


End Sub

Sub Text34_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text35_GotFocus ()
    x& = RGB(255, 0, 0)
 text35.BackColor = x&
    Y& = RGB(0, 0, 255)
    text34.BackColor = Y&

End Sub

Sub Text35_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
  text35.Text = ""
Case 32
             text36.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text36.SetFocus
  End If


End Sub

Sub Text35_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text36_GotFocus ()
    x& = RGB(255, 0, 0)
 text36.BackColor = x&
    Y& = RGB(0, 0, 255)
    text35.BackColor = Y&

End Sub

Sub Text36_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
   text36.Text = ""
Case 32
             text37.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
text37.SetFocus
  End If


End Sub

Sub Text36_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text37_Change ()
love$ = text37.Text
Select Case LCase$(love$)
    Case "love"
        Beep
        MsgBox ("We're sorry, but the word 'Love' needs to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
        text37.Text = ""

    Case "regards"
        Beep
        MsgBox ("We're sorry, but the word 'Regards' needs to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
    text37.Text = ""

    Case "with love"
    Beep
        Beep
        MsgBox ("We're sorry, but the words 'With Love' need to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
    text37.Text = ""
    Case "much love"
        Beep
        MsgBox ("We're sorry, but the words 'Much Love' need to be in one of the text boxes, not here in the signature box.  The signature box should contain the actual names of the sender..."), 0, "Oops!"
        text37.Text = ""


 End Select



End Sub

Sub Text37_GotFocus ()
    x& = RGB(255, 0, 0)
 text37.BackColor = x&
    Y& = RGB(0, 0, 255)
    text7.BackColor = Y&
     label1.Caption = "Now enter the signature, names only."
 Select Case voice
 Case 2 'This is a radiogram, not a voicegram
 If text8.Text = "" Then
     MsgBox ("Warning!  It appears that there is either no text to this message, or one of the text boxes is improperly empty.  Please correct before continuing...")
     text8.SetFocus
     End If

End Select

End Sub

Sub Text37_KeyDown (keycode As Integer, Shift As Integer)
   'Now check for punctuation...
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")

End Select

Select Case voice
 Case 1 'This is a Voicegram, not a radiogram
    If text1.Text = "" Then
    Beep: MsgBox ("You need to fill in the name and address information before we can transmit your voicegram..."): text38.Visible = False: text1.SetFocus : text37.Text = ""

       End If

             If keycode = 13 And text37.Text = "" Then
     MsgBox ("We can't send your voicegram without a signature..."): text38.Visible = False: label1.Visible = True: label2.Visible = True: label10.Visible = True: text37.Visible = True: text37.SetFocus
              End If
       If keycode = 13 And text37.Text <> "" Then
          text38.Visible = True: text38.Text = "Now you can begin to record your voice message.  When you have the microphone ready, press the ENTER key to start recording.": label1.Visible = False: label2.Visible = False: label10.Visible = False: text37.Visible = False: text38.SetFocus
             End If

    Case 2 ' This is a radiogram, not a voicegram

    If keycode = 13 Then
    keycode = 9
    label1.Caption = "Inspect for errors, then click on 'transmit' or 'abort' button."

  End If

    End Select

End Sub

Sub Text37_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text38_KeyDown (keycode As Integer, Shift As Integer)
On Error Resume Next

If keycode = 13 Then 'Record the voicegram
     'command3d1.Enabled = False

    messagenumber = initialmessagenumber + 1' Increment the message number
    initialmessagenumber = messagenumber

    test$ = (directory$ & "\vrec.exe " & directory$ & "\" & "voc" & messagenumber & " /T:15")
    x = Shell(test$)
    'text38.Text = test$
    cleartext
    text38.Text = "When the recording of your voicegram is complete, choose 'Listen To Voicegram' button or 'Main Menu' button": command3d3.Visible = True

number$ = Str$(messagenumber)'Make a text representation of the longinteger "messagenumber"

Open directory$ & "\" & messagenumber For Output As #1

cr$ = Chr$(10) & Chr$(13)

sig$ = cr$ & "BT" & cr$ & UCase$(text37.Text) & cr$

'Now put the text portion (preamble, etc) together as an ASCII file and write to disk

    preamble$ = "NR" & " " & number$ & " " & precedence$ & " " & UCase$(callsign$) & " " & UCase$(cityoforigination$) & " " & UCase$(todaysdate$) & cr$

    voicegram$ = preamble$ & UCase$(text1.Text) & cr$ & UCase$(text2.Text) & cr$ & UCase$(text3.Text) & "  " & UCase$(text4.Text) & " " & UCase$(text5.Text) & " " & UCase$(text6.Text) & " " & cr$ & UCase$(text7.Text) & cr$ & "BT" & cr$ & "See 'VOCxxxx' file with same number" & cr$ & "BT" & cr$ & sig$ & cr$


    Print #1, voicegram$
    Close 1

    End If



If Err Then
   MsgBox (Error$(Err))
End If

End Sub

Sub Text4_GotFocus ()
    x& = RGB(255, 0, 0)
 text4.BackColor = x&
    Y& = RGB(0, 0, 255)
    text3.BackColor = Y&

End Sub

Sub Text4_KeyDown (keycode As Integer, Shift As Integer)
    Select Case keycode
    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 47 To 57, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
   text4.Text = ""

             End Select
If keycode = 13 Then
    keycode = 9
    label1.Caption = "Good!  Now enter Zip or Postal Code."
       text5.SetFocus
             End If
End Sub

Sub Text4_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text5_GotFocus ()
    x& = RGB(255, 0, 0)
 text5.BackColor = x&
    Y& = RGB(0, 0, 255)
    text4.BackColor = Y&


End Sub

Sub Text5_KeyDown (keycode As Integer, Shift As Integer)
    Select Case keycode
    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")


             End Select
If keycode = 13 Then
    keycode = 9
    label1.Caption = "Good!  Now enter Country.  (Leave blank if USA) "
       text6.SetFocus
         End If

End Sub

Sub Text5_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text6_GotFocus ()
    x& = RGB(255, 0, 0)
 text6.BackColor = x&
    Y& = RGB(0, 0, 255)
    text5.BackColor = Y&


End Sub

Sub Text6_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 57, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")


             End Select
If keycode = 13 Then
    keycode = 9
    label1.Caption = "Good!  Now enter telephone number."
       text7.SetFocus
         End If

End Sub

Sub Text6_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text7_GotFocus ()
    x& = RGB(255, 0, 0)
 text7.BackColor = x&
    Y& = RGB(0, 0, 255)
    text6.BackColor = Y&


End Sub

Sub Text7_KeyDown (keycode As Integer, Shift As Integer)

    Select Case keycode
    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  ")
        text7.Text = ""


             End Select
Select Case voice
    Case 1 'Voicegram, rather than radiogram
        label1.Caption = "Now type your signature."
          If keycode = 13 Then keycode = 9: text37.SetFocus

        Case 2 'Radiogram rather than voicegram

If keycode = 13 Then
    keycode = 9
    label1.Caption = "Begin text.  One word per box, no punctuation."
    text8.SetFocus
  End If


End Select

End Sub

Sub Text7_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text8_GotFocus ()
    x& = RGB(255, 0, 0)
 text8.BackColor = x&
    Y& = RGB(0, 0, 255)
    text7.BackColor = Y&

End Sub

Sub Text8_KeyDown (keycode As Integer, Shift As Integer)
    Select Case keycode
    Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
        text8.Text = ""
Case 32
    text9.SetFocus
    End Select
If keycode = 13 Then
    keycode = 9
    text9.SetFocus
         End If

End Sub

Sub Text8_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Text9_GotFocus ()
    x& = RGB(255, 0, 0)
 text9.BackColor = x&
    Y& = RGB(0, 0, 255)
    text8.BackColor = Y&

End Sub

Sub Text9_KeyDown (keycode As Integer, Shift As Integer)
   Select Case keycode
   Case 9 To 12, 17 To 27, 33 To 36, 38, 40 To 45, 96 To 99, 101, 103 To 109, Is > 110
        Beep
        MsgBox ("Sorry!  No punctuation or non-printable characters can be used.  Please erase any you may have accidently typed before continuing.")
        text9.Text = ""
             Case 32
             text10.SetFocus
             End Select
If keycode = 13 Then
    keycode = 9
    text10.SetFocus
  End If

End Sub

Sub Text9_KeyPress (keyascii As Integer)
  If keyascii = 13 Then
  keyascii = 0
  End If

End Sub

Sub Timer1_Timer ()
'when things are done, automatically move back to main form
radiogrm.Hide
ky1tnts.Show
'timer1.Enabled = True


End Sub

Sub Timer2_Timer ()
picture1.Visible = False
picture1.Visible = False

End Sub